home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacOberonLite 1.0.1 / Sys Files / MacMemory.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1993-06-27  |  3.3 KB  |  75 lines  |  [.Ob./.Ob4]
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. MODULE MacMemory;
  4. (* This Module contains all essentiel constants, datatypes and routines from the NEW Inside Macintosh
  5.             Memory + some general data types like strings etc.
  6.     However this implementation is NOT complete. If use miss some items, please use Inside Mac
  7.     and complete this module for your needs.
  8.     See the documentation ( MakeMacApp.Doc ) for more information about the usage of this module.  *)
  9. IMPORT SYSTEM;
  10. CONST
  11.         noErr* = 0;
  12.     (* General Types *)
  13.         Data*=RECORD END;    (* Base Type of Anything *)
  14.         Ptr*=POINTER- TO Data;    (* Untagged Pointer to Data*)
  15.         Handle*=POINTER- TO RECORD p*: Ptr END;    (* Untagged Pointer to a Master Pointer *)
  16.         Size*=LONGINT;
  17.         Str255*=ARRAY 256 OF CHAR;
  18.         StringPtr*=POINTER- TO Str255;
  19.         StringHandle*=POINTER- TO RECORD p*: StringPtr END;
  20. (* Macintosh Register_Based Core OS Traps*)
  21.     PROCEDURE- InitZone*    0A0H, 019H;
  22.     PROCEDURE- GetZone*    0A1H, 01AH;
  23.     PROCEDURE- SetZone*    0A0H, 01BH;
  24.     PROCEDURE- MaxMem*    0A1H, 01DH;
  25.     PROCEDURE- NewPtr*    0A1H, 01EH;
  26.     PROCEDURE- NewPtrClear*    0A3H,01EH;
  27.     PROCEDURE- NewPtrSys*    0A5H,01EH;
  28.     PROCEDURE- NewPtrSysClear*    0A7H,01EH;
  29.     PROCEDURE- DisposPtr*    0A0H, 01FH;
  30.     PROCEDURE- DisposePtr*    0A0H,01FH;
  31.     PROCEDURE- SetPtrSize*    0A0H, 020H;
  32.     PROCEDURE- GetPtrSize*    0A0H, 021H;
  33.     PROCEDURE- NewHandle*    0A1H, 022H;
  34.     PROCEDURE- NewHandleSys*    0A5H,022H;
  35.     PROCEDURE- NewHandleClear*    0A3H,022H;
  36.     PROCEDURE- NewHandleSysClear*    0A7H,022H;
  37.     PROCEDURE- DisposHandle*    0A0H, 023H;
  38.     PROCEDURE- DisposeHandle*    0A0H,023H;
  39.     PROCEDURE- HGetState*    0A0H,069H;
  40.     PROCEDURE- HSetState*    0A0H,06AH;
  41.     PROCEDURE- SetHandleSize*    0A0H, 024H;
  42.     PROCEDURE- GetHandleSize*    0A0H, 025H;
  43.     PROCEDURE- HandleZone*    0A1H, 026H;
  44.     PROCEDURE- ReallocHandle*    0A0H, 027H;
  45.     PROCEDURE- RecoverHandle*    0A1H, 028H;
  46.     PROCEDURE- HLock*(h:Handle)    020H,05FH, 0A0H, 029H;
  47.     PROCEDURE- HUnlock*(h:Handle)    020H,05FH,0A0H, 02AH;
  48.     PROCEDURE- HPurge*(h:Handle)    020H,05FH,0A0H,049H;
  49.     PROCEDURE- HNoPurge*(h:Handle)    020H,05FH,0A0H,04AH;
  50.     PROCEDURE- HLockHi*(h:Handle)    020H,05FH,0A0H,064H,0A0H,029H;
  51.     PROCEDURE- MoveHHi*(h:Handle)    020H,05FH,0A0H,064H;
  52.     PROCEDURE- TempNewHandle*(logSize : Size; VAR result : INTEGER) : Handle    03FH,03CH,000H,01DH,0A8H,08FH;
  53.     PROCEDURE- TempMaxMem*(VAR grow:Size) : Size    03FH,03CH,000H,015H,0A8H,08FH;
  54.     PROCEDURE- TempFreeMem() : LONGINT    03FH,03CH,000H,018H,0A8H,08FH;
  55.     PROCEDURE- EmptyHandle*    0A0H, 02BH;
  56.     PROCEDURE- InitApplZone*    0A0H, 02CH;
  57.     PROCEDURE- GetApplLimit*() : Ptr    02EH,0B8H,001H,030H;
  58.     PROCEDURE- SetApplLimit*    0A0H, 02DH;
  59.     PROCEDURE- BlockMove*    0A0H, 02EH;
  60.     PROCEDURE- PurgeMem*(cbNeeded : Size)    020H,01FH,0A0H,04DH;
  61.     PROCEDURE- PurgeMemSys*(cbNeeded : Size)    020H,01FH,0A4H,04DH;
  62.     PROCEDURE- FreeMem*() : LONGINT    0A0H,01CH,02EH,080H;
  63.     PROCEDURE- FreeMemSys() : LONGINT    0A4H,01CH,02EH,080H;
  64.     PROCEDURE- StripAddress*(adr24 : LONGINT) : LONGINT    020H,01FH,0A0H,055H,02EH,080H;
  65.     PROCEDURE- Translate24To32*(adr24 : LONGINT) : LONGINT    020H,01FH,0A0H,091H,02EH,080H;
  66.     PROCEDURE- SetCurrentA5*() : LONGINT    02EH,08DH,02AH,078H,009H,004H;
  67.     PROCEDURE- SetA5*(newA5 : LONGINT) : LONGINT    02FH,04DH,000H,004H,02AH,05FH;
  68.     PROCEDURE- Debugger*    0A9H,0FFH;
  69.     PROCEDURE- MemError*() : INTEGER    03EH,0B8H,002H,020H;
  70.     PROCEDURE- MoreMasters*    0A0H, 036H;
  71.     PROCEDURE- GetTrapAddress*    0A1H, 046H;
  72.     PROCEDURE- SysEnvirons*    0A0H, 090H;
  73.     PROCEDURE- MaxApplZone*    0A0H, 063H;
  74. END MacMemory.
  75.